with communautes_strings;
with communautes_strings_implementation_sigma;
with communautes_strings_implementation_optimal;
with Ada.Text_IO;
with ada.Exceptions;
function Configuration return communautes_strings.communaute'Class is
   type choix is (Sigma,Optimale);
   c: choix;
begin
   loop
      begin
         Ada.Text_IO.Put_Line("Choisissez votre implementation");
         Ada.Text_IO.Put_Line("Sigma ou Optimale");
         c:= choix'Value(Ada.Text_IO.Get_Line);
         case c is
         when Sigma =>
            return communautes_strings_implementation_sigma.creer;
         when others =>
            return communautes_strings_implementation_optimal.creer; --A modifier sur prochaine implementation
         end case;
      exception
         when err : Constraint_Error => Ada.Text_IO.Put_Line("Implementation non valide");
      end;
   end loop;

end Configuration;
